#Include "Protheus.ch"

USER FUNCTION F440BASE()
LOCAL aDados := ParamIXB
/*
ParamIXB[1]cVendedor,;
ParamIXB[2]SE1->E1_VLCRUZ,;
ParamIXB[3]nBaseEmis,;
ParamIXB[4]nBaseBaix,;
ParamIXB[5]nVlrEmis,;
ParamIXB[6]nVlrBaix,;
ParamIXB[7]nPerComis
aDados[1][3] := (aDados[1][3]) * 1.10 // soma 10%
aDados[1][5] := (aDados[1][3]) * (aDados[1][7]/100)// novo valor
*/
MsgInfo("Ponto de Entrada F440BASE", "F440BASE")
RETURN ACLONE(aDados)

//-----------------------------------------------------------------